home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
rmqb01.zip
/
WRITEQGF.BAS
< prev
Wrap
BASIC Source File
|
1991-11-06
|
699b
|
33 lines
' WriteQgf.bas
'
' Purpose : Creates a QGF file
' Compiler: Quick Basic 4.5
' Date : Nov 3, 1991
OPTION BASE 1
DEFINT A-Z
SCREEN 7 ' Raster Master will accept images created in SCREENS
' 7,8,9, and 12.
x = 0
y = 0
x2 = 49
y2 = 49
LINE (1, 1)-(48, 48), 5, BF
LINE (6, 6)-(25, 25), 11, BF
LINE (0 - 0, 0)-(49, 49), 14, B
myWidth = x2 - x + 1
myHeight = y2 - y + 1
myArraySize = (5 + myHeight * 4 * INT((myWidth + 7) / 8)) / 2
DIM myImage(myArraySize)
GET (x, y)-(x2, y2), myImage
OPEN "SAMPLE.QGF" FOR BINARY AS #1
FOR i = 1 TO myArraySize
PUT #1, , myImage(i)
NEXT i
CLOSE #1